home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / os2 / xyos2shl.zip / RUNCMD.PM < prev    next >
Text File  |  1996-04-13  |  7KB  |  134 lines
  1. «GLA»
  2. {{5Help4runcmd}} Help for RUNCMD.PM [XYOS2SHL.ZIP]
  3. «SV01,«FL»«LM2DI»«RM78DI»
  4. RUNCMD.PM  [Part of XYOS2SHL.ZIP]  4/13/96  R. J. Holmgren
  5. Execute defined text as OS/2 batch or REXX command
  6.  
  7. Usages:
  8.     U2:  runcmd [STARTOS2_parameters] [O2.PM_options]<Helpkey>
  9.    RUN:  run runcmd.pm [STARTOS2_parameters] [O2.PM_options]<cr>
  10.  
  11. RUNCMD *requires* presence *in U2* of frame  7B 7B5o2 7D 7D
  12.   (having O2.PM on disk only will NOT work)
  13. Command HELP O2<Helpkey> for STARTOS2_parameters and O2.PM_options
  14.  
  15. If you are executing REXX code rather than ordinary batch commands,
  16.   your first DeFined line must be a comment, e.g.:
  17. /* REXX */
  18.  
  19.  
  20. Install: RUNCMD.PM in U2, or
  21.          Run RUNCMD.PM freestanding !*only if*! O2.PM installed in U2
  22.  
  23. «FC»
  24. For Use by RENUMBER.PM:
  25. Renumber RUNCMD.PM in PACK mode
  26. Default Save/Get Range=[00|50] 01-05
  27. OPTIONs (2): FREEZE 50; LEFT$ %
  28. «FL»«LM»»
  29. {{m}}
  30.  
  31. {{5runcmd}} Execute defined text as OS/2 batch or REXX command
  32. «SX00,«IS50»»«GLA»;*;
  33.  
  34.            USER VARIABLE - Toggle eXPanded view to set Save/Get
  35.            ----------------------------------------------------
  36.             ⁿÖ  OS/2 BootDriveLetter, e.g. "C"
  37. «LBA»«SV01,»;*;
  38. ;*;
  39.  éº«IF«VA|01»==1&"ABCDEFGHIJKLMNOPQRSTUVWXYZ"≡@UPR(«IS01»)» é½(es 1)«SX02,«IS00»+" "» üA«SX03,«IS01»+":\OS2\MDOS\RUNCMD.CMD"»«SX04,«IS01»+":\OS2\MDOS\O2.CMD» é½exist «PV04» é«IF«ER»»«SX01,"Bad drive "+«IS01»+", or file \OS2\MDOS\O2.CMD not found»«PR@01»«EX»«EI»;*;
  40. «SV05,» éG«IF«VA$DE»<1»«LBB»«PRNo OS/2 batch or REXX code DeFined - Abort»«EX»«EI»«SV05»«IF«VA|05»<1»«GLB»«EI» é½exist «PV03» é«IF@NOT(«ER»)»«SX04,"File "+«IS03»+" may be running - erase it and proceed?  Y|n"»«PR@04»«SX04,«RK»»«IF"Nn"≡«IS04»»«PRAbort»«EX»«EI» é½ernv «PV03» é é½wait é«EI» é½sa %05,«PV03» é é½wait é«SV06,»«IF""""ε«IS02»==0»«SV01,"W" »«SV04,»«SV05,»«XS02,01,04,06,05»«SX02,«IS05»»«EI»«LBC»«IF"/"ε«IS02»==0»«SV01,/W »«SV04,»«SV05,»«XS02,01,,04,05»«SX02,«IS05»»«SX06,«IS06»+«IS04»»«GLC»«EI»«SX50,«IS06»+" /I CALL "+«IS03»+" "+«IS02»» éú2.o2 é«EX»«EI»«PRBad BootDriveLetter spec in frame O2»«EX»
  41.  
  42.  2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E
  43.  
  44. {{5go2}} Shell to OS/2 in current drive, dir  Rev.4/13/96
  45. CMD Big Screen
  46.  
  47.  2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E
  48.  
  49. {{5Help4pullos2*,Help4p2*}} Help for PULLOS2.PM [XYOS2SHL.ZIP]
  50. «SV01,«FL»«LM2DI»«RM78DI»
  51. PULLOS2.PM  [Part of XYOS2SHL.ZIP]  3/21/96
  52.   Carl L. Distefano (Rev. R. J. Holmgren)
  53.  
  54. Issue an OS/2 command, to view output in XyWrite
  55. P2 is a synonym for PULLOS2
  56. In default operation, XyWrite idles while waiting for results.
  57. A terminal foreslash -- PULLOS2/ or P2/ -- launches P2 in background
  58.   and unties XyWrite from the process, permitting you to work while
  59.   results are collected; a beep sounds when OS/2 results are ready,
  60.   so issue P2/ once more to view results
  61.  
  62. Usage:  pullos2[/] command [arguments] <Helpkey>
  63.   e.g.  p2 su.exe IRQS <Helpkey>
  64.         p2 c:\ff.exe \*.dll /S <Helpkey>
  65.         p2 dir *.dll /o:d /s <Helpkey>
  66.         p2/ grep "stultiloquence OR nugacity" *.tmp <Helpkey>
  67.  
  68. PULLOS2 *requires* presence of frame  7B 7B5o2 7D 7D *in U2*
  69.   (having O2.PM on disk only will NOT work)
  70.  
  71. «FC»
  72. For Use by RENUMBER.PM:
  73. Renumber PULLOS2.PM in PACK mode
  74. Default Save/Get Range=[00|50] 01
  75. OPTION (1): FREEZE 50
  76. «FL»«LM»»
  77. {{m}}
  78.  
  79. {{5pullos2,pullos2/,p2,p2/}} Import OS/2 command output into XyWrite  CLD (Rev. RJH)
  80. «SX00,«IS50»» éº«IF«VA$WA»<1»«PRNo window»«EX»«EI»;*;
  81. ;*;
  82. ;*; If no arg, review results and EXit
  83. «SX01,«VADR»»«IF«VA|00»<1»«IF«VA$FR»≡"/"» é½exist «PV01»pullos2.out é«IF«ER»»«PRNothing to report»«EX»«EI»;*;
  84. ;*;
  85. ;*; Import results into XyWrite; erase result file
  86. «LBD» üA é½(ne/100) é½me «PV01»pullos2.out é é½(wait) é½ernv «PV01»pullos2.out é é½(wait) Ç± ü? ü;«PRDone»«EX»«EI»«PRNo command»«EX»«EI»;*;
  87. ;*;
  88. ;*; Erase old copy of result file
  89.  é½(es 1) é½exist «PV01»pullos2.out é«IF@NOT(«ER»)» é½ernv «PV01»pullos2.out é é½(wait)«EI»;*;
  90. ;*;
  91. ;*; Pass command to O2; REName result file when done
  92. «SX50,"""PullOS/2 Results"""+" /b /c /r '"+«IS00»+" >"+«IS01»+"pullos2.tmp';'ren "+«IS01»+"pullos2.tmp pullos2.out'"»«IF«VA$FR»≡"/"»«SX50,«IS50»+";call beep 1000,150"» éú(2.o2) üp2/ Ç}«PR|After beep, command "PULLOS2/<Helpkey>" to view OS/2 results»«EX»«EI» éú(2.o2);*;
  93. ;*;
  94. ;*; Wait for result file to exist
  95. «SX01,«VADR»»«PRWaiting for OS/2 results...»«LBE» é½exist «PV01»pullos2.out é«IF«ER»»«GLE»«EI»«GLD»
  96.  
  97.  2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E
  98.  
  99. {{5PrsCMline}} Pass CMline "framename[ argument[,arg...]]<Helpkey>" to U2
  100. «SU50,«SX01,«IS00»»»«GT50»«IF«VA|01»<1»«EX»«EI»«SV02,S»«SV03,»«XS01,02,50,04,03»«SV50,»«IF«IS04»ε«IS01»<>0!«IS04»ε«IS03»<0»«SX03,«IS01»»«SV04, »«GLF»«EI»«IF«IS04»ε«IS03»<>«VA|03»-1»«SX04,«IS04»+" "»«EI»«LBF»«XS03,04,01,02,50» éú2.«PV01» é
  101.  
  102.  2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E
  103.  
  104. {{5PrsKbdArg}} Pass "framename argumentsNO" to U2 from .KBD file
  105. «SV01,»«LBG»«SX02,«RC»»«IF«IS02»==" üº"»«SV02,,»«EI»«IF«IS02»<>" üú"»«SX01,«IS01»+«IS02»»«GLG»«EI»«SV02,S»«SV03,»«XS01,02,50,04,03»«SV50,»«IF«IS04»ε«IS01»<>0!«IS04»ε«IS03»<0»«SX03,«IS01»»«SV04, »«GLH»«EI»«IF«IS04»ε«IS03»<>«VA|03»-1»«SX04,«IS04»+" "»«EI»«LBH»«XS03,04,01,02,50»«SU03,«SX02,«IS00»»»«GT03»«IF" "ε«IS02»==0»«SV03, »«XS02,03,04,05,50»«EI» éú2.«PV01» é
  106.  
  107.  2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E
  108.  
  109. {{5Help4Help}} Issue UserHelp
  110. «SV01,«FC»
  111.  ⁿ╧ ⁿε ⁿ¡ ⁿ╠ ⁿΘ ⁿε ⁿσ ⁿá ⁿ╚ ⁿσ ⁿ∞ ⁿ≡ ⁿá ⁿµ ⁿ∩ ⁿ≥ ⁿá ⁿ╪ ⁿ∙ ⁿ╫ ⁿ≥ ⁿΘ ⁿ⌠ ⁿσ ⁿá ⁿ┤ ⁿá ⁿß ⁿε ⁿΣ ⁿá ⁿ╪ ⁿ∙ ⁿ╫ ⁿ≥ ⁿΘ ⁿ⌠ ⁿσ ⁿá ⁿµ ⁿ∩ ⁿ≥ ⁿá ⁿ╫ ⁿΘ ⁿε ⁿΣ ⁿ∩ ⁿ≈ ⁿ≤
  112. C.L.Distefano + R.J.Holmgren - 6/5/95
  113. «FL»
  114. Displays the Help screen associated with any Help frame
  115.  
  116. Command:      HELP FRAMENAME<Helpkey>
  117. `Esc'ape aborts the Help screen
  118.  
  119. «FC»
  120. For Use by RENUMBER.PM:
  121. Renumber HELP in PACK mode
  122. Default Save/Get Range=[50] 01-07
  123. OPTION (1): FREEZE 50
  124. «FL»»
  125.  2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E
  126.  
  127. {{5Help}} Execute "Help4" frame, with safety net for non-existent frame (Rev. 11/14/95)
  128.  éº é½(es 1) üA«SV01,»«IF«VA$WA»<1»«SV02,No window»«GLK»«EI»«IF«VA|50»<1»«SV50,Help»«EI» éú2.Help4«PV50» é«IF«ER»!«VA|02»<1»«SX02,"No help available for """+@UPR(«IS50»)+"""»«GLK»«EI»«SX03,«VAWF»»«SX03," é½(d wf="+«IS03»+")"» é½(d wf=0);*;
  129. «SX04,@INT(«VASW»-2)»«SX05,"«SZ12PT»«UFSTANDARD»«OF»«IP0,2DI»«FL»«LM2DI»«PW"+«IS04»+"DI»«RM»«NJ»«RT»«TS8DI,16DI,24DI,32DI,40DI,48DI,56DI,64DI,72DI»«FD273DI»«PL273DI»«HY0»«NJ»"»«SX06,«VA$NR»»«IF«VA\1222»=="F-DOS"»«IF«PV06»==2»«SX06,1»«EI»«EI»«SX06,@INT(«VASL»-«PV06»-4)» é½window «SX07,«VA$WA»»«PV07»,1,1,«PV04»,«PV06» é é½(ne/«IF«VA\1222»=="F-DOS"»9«GLI»«EI»25«LBI»)«GT05»«GT01» Ç±«PREsc removes Help» ü?«LBJ»«SX02,«RC»»«IF" é┘ é½ é3 éÖ ü√ éE éú üG Çß é5"≡«IS02»»«GLJ»«EI»«IF«VA$KC»>1»«PV02»«GLJ»
  130. «EI» üA é½(func #«PV07»)«SX02,«VA$WN»» é½(ab/nv)«IF«VA$WN»==«PV02»&«VA$WO»>1» é½(rs)«EI»«PV03»«SV02, »«LBK»«PR@02»
  131.  
  132.  2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E
  133.  
  134.